home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / st_fx.lst < prev    next >
Encoding:
File List  |  1994-03-01  |  3.4 KB  |  105 lines
  1. ' ****************************
  2. ' ** PROGRAMME DE TRANSFERT **
  3. ' ** ATARI ST <--> CASIO FX **
  4. ' ** REALISER POUR OISAC 2  **
  5. ' ** Auteur: BOURDIER Alain **
  6. ' ****************************
  7. '
  8. ' *** Configuration RS 232 C ***
  9. ' *** Vitesse  : 4800 bauds  ***
  10. ' *** Parité   : Sans        ***
  11. ' *** Nbr Bits : 8 Bits      ***
  12. ' *** Stop bit : 1 bit       ***
  13. '
  14. ' VOID XBIOS(15,Code-Vitesse,Mode,Usart,Rsc,Csr,Scr)
  15. '
  16. ' Code-Vitesse : 2 = 4800, 4 = 2400, 7 = 1200, 9 = 300, 14 = 75
  17. '
  18. ' Voir bon manuel sur le GFA-BASIC pour plus d'explications.
  19. '
  20. VOID XBIOS(15,W:2,W:1,-1,-1,-1,-1)      ! Configuration RS
  21. '
  22. chemin$="A:\*.TXT"                      ! Critère de recherche
  23. fichier.
  24. nomfic$=""                              ! Var chemin+nom fichier.
  25. '
  26. main_prg                                ! Appel Procedure main_prg.
  27. '
  28. END                                     ! Fin du programme.
  29.  
  30. '
  31. ' *** Procedure principale ***
  32. '
  33. PROCEDURE main_prg
  34.   REPEAT
  35.     ALERT 0,"| TRANSFERT ATARI <--> CASIO | |  *** FAIT PAR OISAC 2 ***",3,"ST -> FX|FX -> ST| FIN ",r%
  36.     IF r%=1
  37.       stfx                              ! Appel procedure stfx
  38.     ELSE IF r%=2
  39.       fxst                              ! Appel procedure fxst
  40.     ELSE
  41.       ALERT 1,"| FIN DU PROGRAMME | |  Au revoir ...",2," OUI | NON ",fin%
  42.     ENDIF
  43.   UNTIL fin%=1
  44. RETURN
  45. '
  46. ' *** Procedure Transfert ATARI --> CASIO
  47. '
  48. PROCEDURE stfx
  49.   FILESELECT chemin$,nomfic$,nomfic$
  50.   IF nomfic$<>""
  51.     IF EXIST(nomfic$)
  52.       ALERT 0,"** TRANSFERT ATARI -> FX **| |LANCEZ : |LOAD''COM0:6,N,8,1,N,N,N,B'' ",1," Ok | Non ",r%
  53.       IF r%=1
  54.         OPEN "i",#1,nomfic$    ! Ouverture du fichier en lecture.
  55.         WHILE NOT (EOF(#1))    ! Tantque pas Fin De Fichier.
  56.           octet%=INP(#1)       ! Lire l'octet du fichier.
  57.           OUT 1,octet%         ! Transferer l'octet sur le port Rs.
  58.           PRINT CHR$(octet%);  ! Affichage de l'octet.
  59.         WEND
  60.         DELAY 2                ! Attend 2 secondes.
  61.         CLS                    ! Efface l'écran.
  62.         CLOSE #1               ! Ferme le fichier.
  63.       ENDIF
  64.     ELSE
  65.       ALERT 2," | PAS DE FICHIER | |  AVEC SE NOM ",1,"SUITE",r%
  66.     ENDIF
  67.     nomfic$=""
  68.   ENDIF
  69. RETURN
  70. '
  71. ' *** Procedure Transfert CASIO --> ATARI
  72. '
  73. PROCEDURE fxst
  74.   FILESELECT chemin$,nomfic$,nomfic$
  75.   IF nomfic$<>""
  76.     IF EXIST(nomfic$)
  77.       ALERT 2," | FICHIER DEJA SUR | |  LE DISQUE ",1,"ECRASE|SORTIR",r%
  78.     ELSE
  79.       r%=1
  80.     ENDIF
  81.     IF r%=1
  82.       ALERT 0," ** TRANSFERT FX -> ATARI ** | |TAPEZ & LANCEZ APRES LE 'Ok'  |SAVE''COM0:6,N,8,1,N,N,N,B'' ",1," Ok | Non ",r%
  83.       IF r%=1
  84.         WHILE INP?(1)           ! Repeter tant que Tampon pas vide.
  85.           octet%=INP(1)         ! vide le Tampon RS.
  86.         WEND
  87.         OPEN "o",#1,nomfic$     ! Ouverture du fichier en lecture.
  88.         finrs%=1                ! Flag de fin de transfert.
  89.         WHILE finrs%            ! Chargement RS -> Fichier.
  90.           octet%=INP(1)         ! Lecture du tampon RS.
  91.           IF octet%=26
  92.             finrs%=0            ! Fin transmission si 26.
  93.           ELSE
  94.             PRINT CHR$(octet%); ! Affichage de l'octet lu.
  95.             OUT #1,octet%       ! Ecrit l'octet ds le fichier.
  96.           ENDIF
  97.         WEND
  98.         DELAY 2                 ! Attendre 2 secondes.
  99.         CLS                     ! Efface l'écran
  100.         CLOSE #1                ! Fermer le fichier
  101.       ENDIF
  102.     ENDIF
  103.     nomfic$=""
  104.   ENDIF
  105. RETURN